home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / Swatch.asc < prev    next >
Text File  |  1980-03-12  |  776b  |  36 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Wind Open 
  13. '  -Wb Wind Base   
  14. '  -Wb Wind Rastport   
  15. '  -Wb Gfx Ink     
  16. '  -Get Msg    
  17. '  -Wb Gfx Text    
  18. '  -Wb Swatch    
  19. '  -Wb Wind Close  
  20. '
  21. Wb Wind Open 0 To 0,0,84,22,2+4+8
  22. W=Wb Wind Base
  23. R=Wb Wind Rastport(W)
  24. '
  25. Wb Gfx Ink R To 2,0
  26. Wb Gfx Text "Clic me!",10,18 To R
  27. Amos To Back 
  28. '
  29. While Get Msg(W)<>$200
  30.    Wb Gfx Text Wb Swatch,10,18 To R
  31. Wend 
  32. '
  33. Amos To Front 
  34. Wb Wind Close W
  35. End 
  36.